#!/usr/bin/perl

use utf8;
use strict;
use warnings;


sub attributes {
	my $file = shift @_;
	return "does not exists" unless -e $file;

	my @attrib;
	push @attrib, "readable" if -r $file;
	push @attrib, "writable" if -w $file;
	push @attrib, "executable" if -x $file;
	return @attrib;
}

foreach my $file (@ARGV) {
	my @attrib = &attributes($file);
	print "@attrib \n";
}